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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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15-Sep-1984 23:44: VAX-11 Bliss-32 V4.0-74 Pa 1. 
13-Sep-1984 $3:2¢:38 VEISSSDUAZBSLFORKTL SRCTFORLIB.REQ: 1 ” (1) 


; 1 : FORTRAN Run-Time Library specitic macros and symbols 

i 0006 i File: FORLIB.REQ, Edit: SBL100 

: 2 PITITITITITILIILILLLLLILL LLL LI LLL LLL LLL LiL iiiitiiiiiiiiiiie 
: hd 
3 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ¥ 
3 00 '‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 Bone it ALL RIGHTS RESERVED. : 
; 0010 8 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

: 11 't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; og 't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 14 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; NF :* TRANSFERRED. * 
3 Hd * 

: $01? 0 ‘® THE INFORMATION IN THIS SOFTWARE IS suB sett TO CHANGE WITHOUT NOTICE * 

; 0018 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT . 

; 4 :* CORPORATION. : 
3 ie 

; 0021 8 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
é 00 § '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
tan Goa : | 
: 0036 0 PITITIIIIIL LILLIE LLL LLL LLL Lit iiiiiiiiiiiiitl 
; 026 0 ‘ 

3 §9 i 4 Author: Steven B. Lionel, 23-September-1982 

: 0099 0 i 1-001 = Original. SBL 23-September-1982 

: 0030 0 ' 1-002 - Add FORMACROS.REQ. -Mar-1983 

: 0031 0 i 1-003 = Add FORRCE.R32. SBL 2-Jun-1983 

; pas 0 !eo 

; 00% Ot | 
; 0035 0 i This file is the master source for FORLIB.L32. | 
; 0036 0 ! It contains definitions for macros and symbols used internally to the 

; O37 @ ! FORTRAN Run-Time Library. 

: 00% 0 | 
: 9040 9 SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 
F 0042 9 LIBRARY "RTLSTARLE'; ! SYSSLIBRARY: STARLET.L32 

: 0044 0 REQUIRE "RTLML:FORERR’; ! FORSK_ error codes 


18-50 gen- 138% $3: 744: 38 VAX=11 te! Hes V4.0-7 Page 2 


-Sep-19 2:45: -8255$DUA2 CFORRTL. OBJ FORERR.R32;1 (1). 
3 RO0GS ! ee IT ITIL IIITI IITA TIT TILITI ITA TILILILI LILI LLL LIL LLL TTTTTTTiTTn 
3 ROeE i Created 15-SEP=1984 22:45:50 by VAX=11 SDL v2.0 Source: 15-SEP-1984 22:44:40 _$255$DUA28:CFORRTL.SRCJFORE | 
g ROOG ' tteeeeeeeneeeeeeneeneeneReneReeteeeeererereeeetteteetererereteenccenenenentereteeeeeeTeceeeeneeeeseneneeeeeeeeeee 
; RO048 
; ROO049 
; RO005O lene Wet f ara _— 
; Roe literal FORSK_FA 24; 
; ROO ¢ literal FORSK-NOTFORSPE = 1; 
; R005 Literal FORSK-SYN = 17; 
; ROOS4 Literal FORSK_T NVAL = 18; 
; ROOSS O Literal FORSK_INVREFVAR = 19; 
; Ro 28 ° Literal FORSK_R = 20; 
; ROOS Literal FORSK_DUPFILSPE = gh: 
; rROOS8 O Literal FORSK_INPRECTOO = 22; 
; kROOS9 O Literal FORSK_BACERR = 23; 
; ROO60 O Literal FORSK_ENDDURREA = 24; 
; RO0061 O Literal FORSK_RECNUMOUT = 25; 
; RO062 O Literal FORSK_OPEDEFREQ = 26; 
; ROO63 O Literal FORSK_ NREC = 27; 
; RO064 O Literal FORSK_CLOERR = 28; 
; ROO65 O Literal FORSK_FILNOTFOU = 29; 
; ROO66 O Literal FORSK_OPEFAI = 30; 
; R006? O Literal FORSK_MIXFILACC = 31; 
; RO068 O Literal FORSK_INVLOGUNI = 32; 
; kROO69 O Literal FORSK_ENDFILERR = 33; 
; ROO70 O Literal FORSK_UNIALROPE = 34; 
; ROO71 O Literal FORSK_SEGRECFOR = 35; 
; are 0 Literal FORSK_ATTACCNON = 36; 
; ROO73 O Literal FORSK_INCRECLEN = 37; 
; kROO74 O Literal FORSK_ERRDURWRI = 38; 
; kROO75S QO Literal FORSK_ERRDURREA = 39; 
; ROO76 O Literal FORSK_RECIO OPE = 40; 
; ROO77 O Literal FORSK_INSVIRMEM = 41; 
; kOO78 O Literal FORSK_NO_SUCDEV = rt 
; ROO79 O Literal FORSK_FICNAMSPE = 43; 
; ROO8O0 O Literal FORSK_INCRECTYP = 44; 
; kROO81 O Literal FORSK_KEYVALERR = 45; 
3 Ross 0 Literal FORSK_INCOPECLO = 46; 
; ROOBS 0 Literal FORSK-WRIREAFIL = 47: 
; ROO8S O Literal FORSK_INVARGFOR = 48; 
; kROO8S Q Literal FORSK_INVKEYSPE = 49; 
; RO086 0 Literal FORSK_INCKEYCHG = 50; 
; R008? O Literal FORSK_INCFILORG = 51; 
; RO0088 8 literal ios A a AT = 2g: 
; RO089 Literal FORSK_NO_CURREC = 53; 
; ROO90 O Literal FORSK “REORITERR = 54; 
; ROO91 O Literal FORSK-DELERR = 55; 
; kROO92 O Literal FORSK_UNLERR = 08: 
; kROO9S O Literal FORSK_FINERR = 57; 
; ROO94 0 Literal FORSK_LISIO_SYN = 59; 
; ROO9S O Literal FORSK_INFFORLOO = 60; 
: ROO 0 Literal FORSK-FORVARMIS = 61; 
; ROO97 O Literal FORSK-SYNERRFOR = 66: 
; ROO9B O Literal FORSK_OUTCONERR = 65; 
; ROO99 OQ Literal FORSK_INPCONERR = 64; 
; k0100 8 Literal FORSK_OUTSTAOVE = 66; 
; RO101 Literal FORSK_INPSTAREQ = 67; 


y$cbeoctgee B5o46:38 VANSIL BLigsrsz ve-0c742 Page 3 


; OR 198 Literal FORSK_VFEVALERR_= 68 
; kRO10 Literal FORSK_INTOVF = 70; 

; RO} Literal FORSK_INTZERDIV_= 71; 
; RO105 Literal FORSK_FLOOVE = 72; 

; RO} Literal FORSK_FLOZERDIV_= 73; 
; R010 Literal FORSK_FLOUND = 7 

; RO108 Literal FORSK_DECSTROVE = 76; 
; RO109 8 Literal FORSK_ARRREFOUT = 77; 

; kO110 Literal FORSK_ADJARRDIM = 93: 
; ROW1 0 Literal FORSK"MAX_ERR = 93; 


ee ee 


sid 


io 


1Bo}e 305-1382 $3: te: 3 VS35S$008 BtPbanti sec FORLIB.REQ; te of ay 


11 
$118 2 REQUIRE ‘RILIN:FORFMT'; ! FORMAT codes and fields 


PAA 


x» 
—KEeepeepee pees 
AOAXKO 
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HBodeontgee 25:44:58 vA 


File: FORFMT.REQ Edit: JAW1004 


i this file, FORFMT.REQ, defines symbols for the VAX=-11 FORTRAN 
, formatting routines. 


X=11 
-$255$ $0u 


i geeeeeeereereerereeeeeeeeeneeeeeeeeeeteeeeeeeetenereeeereeeeeneeneeeeeeeeee 


SRR REERERAAEAAE ARATE TEETER AEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS i eck +e A gt or A LICENSE AND MAY USED AND gd 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN THE 
INCLUSION OF THE ABOVE git NOTICE. THIS SOFTWARE OR ANY "Or HER 
F MAY ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
FRANSFERRES NO TITLE To” AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE gre IN THIS SOFTWARE IS SUBJ 
AND SHOULD NOT BE CONSTRUED AS A COM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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att O CHANGE WITHOUT NOTICE 


ECT T 
MITMENT BY DIGITAL EQUIPMENT 


i Revision History: 
98 F Change name to FORFMT.REQ JBS 14-NOV-78 


i¢ 
De 


ACRO 
V_FMT_CODE = 0,0,7,0 % 


_—— 
‘4 
oo 
ooor 
wr 
sevens 


Add co yrigne notice and change version number JBS 16-NOV-78 
Add FO 77 format codes. SBL 09-Feb-1979 

Remove PRINT statement, for new BLISS compiler. JBS 02-0CT-1979 
Add V_RC_TYPE_BYTE and V_RC_TYPE_WORD. JAW 10-Aug-1981 


fine format code byte 


' 7=-bit format code 


VIFMT_REPRE = 6.7.1.0 &:; ! Optional representation byte present? 


MACRO 


+ 

Optional format representation byte 

The following are Dits in the op tonal format representatioy 
byte. The b byte e is copied into local BLOCK 

B_FMT_REPRESENT. These loge ho eR less 

_fFequently used sizes of the format code representations. 
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ferarar Se ee ee 
| #4 Bt igse =32 V4.0-74 
244:4 -8255$DUA2 SCFORRTL. SRCJFORFMT.REQ; 1 (1) 


15- 10 19 4 L§ 744:3 VAX=-11 
-Sep-1984 


; RO171 VRC_TYPE = 0,0,2,0 %, ! Repeat count type: 

3 motes ! 0 = not present, 1 = byte, 2 = word 

3 kRO17 V_RC_TYPE_BYTE = 8.0.1.8 Re 

> RO174 V-RC_TYPE-WORD = oll % 

; RO175 v.w_WORD"= 0,2,1,0 %, ° ' b=w fi eld is byte, l= field is word. 

: noi 76 ' Bit 3 is reserved to DEC 

3; RO17 V.E_VFE = 0,4,1,0 % ! —€ field is VFE 

: RO17B 0 VIDTVFE = 055.1.0, f, iD field is VFE 

; =RO0179 8 VW VFE = 0,6,1,0 % ! W field is a VFE (i nore V_W_WORD) 

> RO180 virt_vFe = 6,7,1,0 &; § Repeat count field is a VFE ~ 

3 a HY . ! ignore V_RC_BYTE ond Vv *RC_WORD) 

: foes 6 

; RO} 0 

; kRO18S O + 

; ROI 0 i Define format code symbols which are is 2 or 3 characters so it a ae * comma will fit 
; kO187 O i in between logical tabs. One character symbols are prefixed with 

3 sid 9 a that they are two character symbols instead (so won't conflict with tOCALs). 

; RO190 O 

; RO191 O LITERAL 

; RO192 O ER = 0, ' 00 ! Format syntax error = only from object time format compiler 
; RO19S O LP . i. ! Q1 i ( = Format reversion point 

; ROI94 O NLP = ¢. ! 8 i n( = Left paren of repeat group 

; kRO19S O RP = 5, ! Q i)- eters paren of repeat group 

: «ROI 0 EOF = 4, ! 04 ! ) = End of format 

3; kRO197 O SLS = 5, ! 05 ! / = Record separato 

; kRO19B O DLR = 6, ' 06 i $ = Dollar sign: teraines 1/0 

; RO199 O ' do not ,return to Left margin 

; kRO200 O CLN Ts ! 07 : = Colon: terminate if end of List 

3 wit3t 8 ! so no trattins Holerith printed 

; kRO203 O S =9 ! 09 ' § = Restore + optional 

; RO204 O Fe = 16, ! OA ' SP = Force + on 

; kRO205 O SS = 11, ! OB ' $$ = Force + off 

; RO206 0 _P elz, | ! sP - si ned scale factor (-128 =< s =< +127). 
; RO207 0 _T >a. ¢ @ ! Tn = Set (0 < n =< 32767) 

; RO208 O _Xx = 14, ! O€ ' nx - Skip n columns (0 < n =< 32767 

; kO209 O H = 15, ! OF ' nHccce = Puollerith: n chars follow (0 < n =< 32767) 
; kO210 O BN ei, ?} 10 ! BN = Blanks are nulls 

; kRO211 O BZ = 17, ! 11 ' BZ - Blanks are zeroes 

: Rosis 0 TL = 18, ‘ 1 ' TLe = Tab left ¢ columns 

; ROT 0 TR =19, #!1 ! TRe = Tab right c columns 

3 RO215 o 0 S $0. ! 14 ! Q@ = no. of input chars left in record 
; RO216 _A sei, : 3 ' nAw = Alpha numeric 

; RO217 O -MIN_DATA = _A ! Minimum 1/0 List transmitting data code 
> RO218 0 P = 22, 116 i ntw - Locial 

; RO219 -MIN_INT = LL, ! Min. integer 

3 RO220 O 0 Sas, + ' nOw - Octal 

; RO221 8 wl s 26, ' 18 ' niw - Integer 

; OR § Z = 25, ' 19 ' nlw - Hexadecimal 

; OR 0 YC) = g. ' 1A ' Ow.m - Extended 0 

3; RO226 0 XI = 27, ' 18 ' Iw.m - Extended | 

3 RO225 x2 = 28, ! 1C ' 2Zw.m - Extended 7 

F no65$ 8 _MAX_INT = XZ, ! Max. integer (not counting defaults) 
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1o3e 1er8eb-18ke 83:00:88 “SSSbgoGaseScroRetC sacSontip.rea;1 2% (15 


0263 
$582 8 REQUIRE "RTLIN:FORMACROS'; ! FORTRAN-specific macros 


-Sep-19 44:3 AX-11 Bliss-32 V4.0-742 Pa 4 
1B-ep- 1944 $3: 45: ‘38 FORRTL.SRCJFORMACROS.REQ; 1 a (1) 


(3 RO265 ' Macros for FORTRAN Run-Time Library 
3 * File: FORMACROS.REQ, Edit: $8L1001 
4 6 i eeeeerererererereerererereerererererererererereerererrererereenerenereneeert 
K 'e 
RO270 ‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
RO271 '® DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. * 
i f :: ALL RIGHTS. RESERVED. * 
: ® 
RO274 'e rs i ir. 34 FURNISHED UNDER A LICENSE AND MAY BE eee AND gd ba * 
RO275 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
RO27 '® INCLUSION OF OPE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
RO27 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RO278 'e THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
~ e :* TRANSFERRED. * 
‘@ 2 
R028) 'e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
RO 8 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
st ~ CORPORATION. * 
it o 
RO285 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
RO He] '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
RO2B 'e * 
RO288 'e * 
Hi: lieth hanna 
RO 


: 0 
. 6 
8 
; § 
3 0 
3 0 
3 0 
5 
3 0 
3 0 
3 0 
3 0 
; 0 
; 92 0 
; kO293 O 
: 0 
3 0 
6 
5 0 
: 0 
; 0 
r 0 
2 0 
5 0 
3 0 
3 0 
o 0 
: 0 
6 
3 0 
3 0 
6 
6 
; 0 


Author: Steven B. Lionel, 7-Jan-1983 
! 1-001 = Original. SBL 7-Jan-1983 
'¢ 
! Macro to call FORSSSIGNAL_STO and return. This saves Lines of code 
a in the source. It can replace a call to FORSS$SIGNAL_STO anywhere. 
MACRO 

SFORSSSIGNAL_STO (signame) = 


304 
a 44 FORSS$SIGNAL ~510. (si 
0 53 F IN LL (ZREMAINING) 
mn030 qe 
mRO309 . SREMAINING 
MR 2FI 


RETURN 0; 
END 2; 
> 


Structure definitions used to declare the FAB and NAM as being offset from 
CCB. To use, make the following declarations: 


BIND 
FAB 
NAM 


“on 
an 
rate! 
@o 
oe ee 
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1Ebeec}age 33¢¢:58 YMGHH Suege RMACROS -REQ: 1 gel | 


zz 
oO 


SFORSFAB CCB B struc (0, P, S, £2 = 

SFOR rae CCB_STRUCT+RABSC_BLN+0)<P,S,E>, 

SFORSNAM CCB STRUCT Co, P, S, EJ = | 
tSrORSRaA” CCB_STRUCT+RABS$C_BLN+F ABSC_BLN¢O)<P,S,E>; 


! End of file FORMACROS.REQ 


STRUCT a: 


FUN" OC OONOU LS wir 


oleae eoleoleloleleloleolo) 


kK 10 
13300-1988 $3: 44:38 VAX-11 Bliss-32 V4.0-7 Page 11 
15-Sep-1984 22:44:59 _8255$DUA28: CFORRTL. sre FORLIB.REQ;1 (1) 


: O88 $ REQUIRE ‘RTLML:FORMSG'; ! FORS_ error codes 


Sep-19 t§ : VAX=11 Bliss=32 V4.0-74 12 
Ite Sep-1984 46:38 VSS5SSpUAzE: : CFORRTL.OBJ JFORMSG.R32;1 ~— (1) | 


' ogocoseutegecescvecetesuesessevenseucevertecetesesnaneonesvenonsssecovessoboqsossestesevececoostssverensocaesoes 


i Created 15-SEP-1984 22:46:32 by VAX-11 SDL v2.0 Source: 15-SEP-1984 22:45:39 _$255$DUA28:CFORRTL.OBJIFORM 


! eR PISS TI ILS iti i tii itis titi sii iti iii titi isi iti i iii ititiiiiit iti titetittititiiritriritiriririrritiiiitii Ties 


Ww 
oon 


+ 
SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: 


FORS_ABCMNOXYZ 
IN ADDITION, THE Lignan preeenett prey yuay THE LETTERS ‘abc’, ‘‘mno"’, 
AND ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR 
messact: NOT COUNTING ARTICLES AND PREPOSITIONS. 


; RO : 
: kO ‘ 
; =RO ; 
; kRO340 ; 
; RO341 : 
; RO 4g tee MODULE SFORDEF *#e | ; 
; Ry 2 This SDL File Generated by VAX-11 Message V04-00 on 15-SEP-1984 22:45:40.89 : 
: RO 46 i FILE: FORMSG.MSG EDIT: SBL2006 é 
; ne +8 8 ! PAR RAAARALASASASELASELELELALESE SESE EERE ESAS ASE LEAEEESELALESE CEE CCOLSSO ELAS bY 
; OR : * ; 
; RO350 9 i ® COPYRIGHT (C) 1978, 1980, 1982, 1984 BY : ; 
: RO351 i ® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
; RO 2¢ 9 i # ALL RIGHTS RESERVED. . | ; 
; * ; 
; RO354 0 i THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
; RO35S O ' ® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
; RO356 0 is USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | ; 
; RO357 0 ‘ ® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; RO358 0 i # OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; RO359 0 i + TRANSFERRED. * 

3 '«# * 

; RO361 0 ie THE INF ORMAT ON IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; RO362 0 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; RO363 0 is CORPORATION. : 

; kRO364 0 '« * 

; RO365 0 i # DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; RO i # SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; RO36 '« * 

: ROB 0 ie * | 

3 RO369 0 ' PRRRRRSALELALAESES ASAE SES ESE RASS EERE RES ER SEES SARA E EERE REESE ASE SES SE SEES ESOL ES 

; RO370 0 | 

; RO371 O : 

; RO372 0 i 1-014 = ADD ERRORS 17- 19, FOR NAMELIST. SBL_ 10-NOV-1980 | 

; RO373 0 i 1-015 = CORRECT TYPO IN TOOMANVAL. SBL_ 15-DEC-1980 

; RO374 0 i 1-016 = RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. | 

; RO375 0 i SBL 6-JAN-1981 

; RO376 0 i 2-001 = CONVERT TO MESSAGE E yTILiTy SOURCE FORMAT. ADAPTED FROM FORMSG.MDL 

; RO377 0 ERSION 1-016. 1981 

; RO378 0 i 2-002 = ADD UNFIO_FMT PAT 10_UNF, DIRIO_ KEV. Fal0. DIR, KEYIO_DIR, | 

: R0379 i O_NONFOR, ~INVIXTREC, ~FLOUNDEXC.~ 1961 

; 0380 i 3-003 - CRANGE INVTXTREC TO’ INVIEXREC. J ve 24-AUG- °9 1 

> R038; i 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXED | 

; RO382 0 i AND INTERNAL FILES THAT D9 NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-9181 | 

; R038 9 i 2-005 - ADD .TITLE. SBL 28-AUG-1982 

; RO 9 i 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-1983 
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L 
F ORS -F ORVARMIS 
FORS-SYNERRFOR 


FORS_OUTCONERR 
FORS_INPCONERR 
FORS$_OUTSTAOVE 


FORS$_INPSTAREQ 
FORS_VFEVALERR 


B-SYSTEM SPECIFIC BIT AND MAKE SEVERE 
b-SYSTEM SPECIFIC BIT AND MAKE SEVERE 


i] 
ee ee 


“SYSTEM SPECIFIC BIT AND MAKE SEVERE 


Sep-1984 244: VAX=-11 BL 
ERI att MSI 
= ene: 
4 . 
= 8 é 44: 
= 1606052; 
= 16 6 é6: 
s | 68; 
aes 
Be 
Ss . 
= 1605924: 
: SET SYSTEM SPECIF T AN 
‘ 2 i, ue EM SPECIFIC BIT AND MAKE SEVERE 
= 1eogtoe: 
> 1 61 2: 
bua 
SET 
1606 
SET 
1606 
1606 
16 
§ 
16 


OMOOOMOMOoMoOoOoomMmoo 


aon Aono 
wa 


5 
3 “SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE) 
$ 
4 
ie 
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l FORS _ADJARRDIN 


THE FOLLOWING vAND THE A 


ECONDARY MESSAGES, OR ARE USED ONLY IN 


R 
; i NEED TO BE (AND SHOULD NOT BE) 


hi MESSAGES FOR USE WITH INPCONERR IN 


* MESSAGE USED IN THE EXIT HANDLER WHICH 


iteral FOR$_FLOUND 
END OF SPECIAL M 
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01 
8802 t REQUIRE "RTLIN:FORNML'; ! NAMELIST definitions 


5 
) 


ps 
oO 
ead 
oO 
Ww 


DD VDDD AAAAADAAAWADADADDD 
ojo elelalelelelelelolelelelelololololo) 


DDDDADADDDD 
own 


jojo jleleleleleleoleolea) 


WW 


DOOOOCOOCOOCOCOOCOSOCOCOOSOSSOS OOO COSOOCOODOOCOOWIOOCOOCOCCOCOOCOOCOCOCOOO 


11 
REI HEAD 


15-Sep-19 


! FORNML.REQ = NAMELIST NML$ Definitions = Version 1-002 = Edit: $8L1002. 
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SOOO AREER EAE ERATE AAA TAREE EATER 
' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE ty MAY B 


USED AND COPIED 
ONLY IN cee WITH THE TERMS OF SUC H 


E 
LICENSE AND WITH THE 


I 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
omponat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


! AUTHOR: Steven B. Lionel 


EDIT HISTORY: 


! 1-0 


LITER 


FIE 


-001 - Original. SBL 21-August-1980 ‘ 
-002 = Add NML$V_SUBSCRIPT. SBL 15-April-1981 


AL 
NMLS$K_BLKLENGTH = TPASK_LENGTHO + 120; 


LD 
NMLSFIELDS = 


* 
* 
* 
* 
® 
® 
* 
® 
* 
*® 
*® 
we 
* 
* 
® 
* 
* 
*® 
* 
® 
* 


1 Bliss 


s 
$DUA2B 


! TPARSE parameter block Length 


' The following fields are part of the TPARSE parameter block past that 


} used by LIBSTPARSE. 


SET 

NMLSA_LISTBLOCK = CTPASK_LENGTHO + 00, 0, 32, 0], ! 
NMLSA_VARNAME = [TPASK_LENGTHO + 04, 0, 32, OJ, ' 
NMLSAVARSTART = CTPASK-LENGTHO + 08, 0, 32, OJ, ' 
NMLSA_VAREND = CTPASK-LENGTHO + 12, 0, 32, 8 ° ' 
NM _VARCUR = TPASK_LENGTHO + 8 e . . ‘ 
NMLSWIVARSIZE = CTPASK-LENGTHO + 20, 0, 16, 0), ' 
NML$W"STRIDE = CTPASK-LENGTHO + 22, 0, 16, 0J, ' 
NMLSA_DESCR = [TPASK-LENGTHO + 24, 0, ; F 8 ; ' 
NMLS$A_CC = [TPASK_LENGTHO + 28, 0, 32, 0), : 
NML$B_DTYPE = [TPASK-LENGTHO + 32, 0, 08, 0), ‘ 
NMLSV-SUBSTRING = CTPASK-LENGTHO + 33, 0, 01, OJ, ' 
NML $V~ IMAG = CTPASK-LENGTHO + 33, 1, 01, OJ, : 


ype 
ng 


t 


32 
FO 


v4.0 


RRTL. 


NAMELIST descriptor block 
Variable name 
Variable start address 
Variable end address 
Current position 
Segment size 
Stride between elements 
Address of descriptor 
Address of CC 
Variable getat 
Set if substr 
Set if imaginary part 
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SRC JFORNML .REQ;1 
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Pr PETE TETETETETEIETErE Ere eee eee eee eee ee ere rere rere rererere re rerere rere rere Te Tere Te Tee ee ee ee ee ee 


ite seer a8e $3ic8:78 «| “SSsSDBASEScPbeKti sacSrornm rea: 2% «1 


NMLSV VALUE IDENT = 
Set if last token was an identifier 


+ ca . 1, ’ : 
NML$V_SUBSCRIPT = LTPASK_LENGTHO + 3 . O1, QJ, ' Set of a subscript has been seen 
NMLSB>CONSTYPE = [TPASKILENGTHO + 34, 0, 08, OJ, ! Constant type 
NMLSL_CURIDX = LTPASK_LENGTHO + 36, 0, 32, OJ, ! Current index number 
NMLS$L_SUBSCR = [TPASK-LENGTHO + 40, 0, 32, 8 . ' Subscripts (7 longwords 
NMLSL_SUBSTRLO = CTPASK_LENGTHO + 40, 0, 32, OJ, ' Low substring column 
NMLSL_LSUBSTRHI] = CTPASK_LENGTHO + 44, 0, 32, OJ, ! High substring column 
NMLSL-CONSBLOCK = CTPASK-LENGTHO + 68, 0, 32, 0], } peretens ater igo block 
' ongwords 
NMLSL_REPEATCT = CTPASK_LENGTHO + 84, 0, 32, 0], ! Repeat count 
NML$T_ TOKEN = C(TPASK_ ~CENGTHO + 88, 0, 08, 0) ' Last token if 
! it could be an 
; identifier: 
! 32 bytes long. 
TES; 


! End of FORNML.REQ 
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1§-%¢ op7188e 83:24 Vests BASBStroRMTC SRCSFORLIB.REO:1" 29° a 


$379 q REQUIRE "RTLIN:FOROPN'; ! OPEN definitions 
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'¢ 

i This file, FOROPN.REQ, defines the VAX-11 FORTRAN OPEN 

i CLOSE and INQUIRE keywords and Literal values. Edit: §BL1023 

i 

i ee eeeeererereeeeeeeeeeeretereneneneneeeeeeeeerereeeeeeretetereeeeeeeeeereres 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE yee AND coriee 
!® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN eon" ND ahd THE 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 
i CORPORATION. 


ie® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


a 

te 

ww 

® 

® 

® 

* 

® 

' & 
ie TRANSFERRED. * 
*® 

ICE 

ENT * 

= 

Si 

ie 

® 

we 

& 

* 


eRe RARER AEE EE ARERR EA AEA ERATE REHEAT AAA RARER e eee 


' 

i 

' 

! Q-21 = Move parameter encoding symbols for FORSSIOBEG to FPAR. TNH 30-May-78 
‘ 6-58 _ And symbol for statement types. TNH 30-May-78 

! 0-23 = Change name to FOROPN.REQ JBS 14-NOV-78 

! 1-001 = Increment version number and add copyright notice JBS 16-NOV-78 

! 1-002 = Add Some s ee 52 to define the special LUN numbers for Basic 

' PRINT, INPUT, READ. DGP 1 

! 1-003 - Add necessary symbolics for ISAM. L 06-Dec-78 

! 1-004 = Change file name from FOROPN.REQ to sBTSOPN. REQ, JBS 06-DEC-78 

! 1-005 = Remove the statement type constants. Moved to LUB. DGP 06-Dec-78 
! 1-006 - Change back to FOROPN. Move more constants to LUB. DGP 08-Dec-78 
! 1-007 = Fix some comments to reflect che SoGnange back to FOROPN. JBS 12-DEC-78 
! 1-008 - Add DISP="SUBMIT'. SBL 09-Fe 

! 1-009 = Change ORG_IND to ORG_IDX. iad. anew ore =16° SBL 03-Apr-79 

! 1-319 - Add new definitions for ISAM. Ap. ore 

! 1-011 = Give BLANK= Literal values. 7 

: he - Add * OPENSK _DIS_SUDE ne ” ENS “DIS. PR Ee. ‘sat 19-Apr-79 

! 1-013 = Add OPENSK-IOSTAT_L. foMerer 

! 1-014 = Add INQUIRE keywords. *eBL 2 erat 

! 1-015 = Because VOPEN and CLOSE use J OSTAT jReywords. make the 

: symbols that control the 35° of their keyword arrays 

: cover them. JBS 01-MAY-1 

! 1-016 - Reocs tan INQUIRE keywords. SBL 01-May-1979 

! 1-017 = Add | yIRe isale3cA valuss for ORGANIZATION, RECORDTYPE 

: and KEYE p Aug-1 

: eH - Add OPENSK_ARG BR. SBL 7-August-1979 

' 1-019 = Remove PRIA statement, for new BLISS compiler JBS 02-0CT-1979 

i 1-020 - Add CARRIAGECONTROL for INQUIRE. SBL -Dec-1979 
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fine | 


LITERAL 


OPENSK 
OPENSK_ASSOCIAT 
OPENSK-ASSOC_L = 


tters of the Literal. 
fine symbols in alphabetical order. 


ENSK_ACC_DIR 
OPENSK~ACC~SEQ 
OPENSK~ACC APP 

ACC“KEY 
= T7, 
0, 


BLK NUL 


OPENSK 
OPENSK_BLOCKSIZ = 18, 
OPENSK~BUFFERCO = 9, 
OPENSK~CARRIAGE = 


7 
OPENSK_CAR_FOR 
OPENSK~CAR-LIS 
OPENSK~CAR—NON 

DEFAULTF = 26, 


OPENSK_ 
OPENSK~DISPOSE = 2, 
OPENSK_DIS. SAV 
OPENSK~DIS~DEL 
OPENSK~DIS~PRI 
OPENSK~DIS~SUB 
OPENSK~D1S~PRDE 
OPENSK~D1S~SUDE 
OPENSK_ERR = 3 
OPENSK-EXTENDSI = 11, 
OPENSK-FORM = 


OPENSK_INITI 
OPENSK~IOSTA 
OPENSK~10STA 


44> 


OPENSK_KEY = 23, 


: not voree The key Length sh 
1 17028 - Add OPEN K_DEFAULTY and° INOSK 


wn 
fs. © © 


1 
15-Sep-1984 144:3 VAX-11 Bliss-32 V4 
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! 1-021 = ISAM KEY positions in the OPEN arg List are signed longwor 


ds 
ould be an unsigned byte. SBL 12-Mar-1980 
D 6c, 95 


DEFAULTF. 
- Add STREAM, STREAM_CR and STREAM_LF values for RECORDTYPE. 


EE EE ee EE EEE ee 


JAW un- 


SBL 1-Mar-1983 


o 
Define pyaeese for FORTRAN OPEN keywords of form: OPENSK_symbol 
De teral values of form: OPENSK_abc_xyz where abc 7s 
: 1 cest three letters of keyword and xyz are the first three 
e 
De 


YED' 

IATEDVARIABLE | . 

associated variable is a longword 

just a word. Note: this parameter 
ot generated by the compiler! 
s needed after all keywords are converted to 
it values. 


Mew 


>cr- 


= HHnnhnnoocn nH HoOowOoWMni t Owe---OoO-PrPn nn nS 
= = 


XTENDSIZE 


te: this is not generated by compiler. 
is used by default OPEN only. 

TIALSIZE 

TAT 

f IOSTAT is_a longword, 

f a word, This is not generated 

Fig compiler. 


KOO FZ 
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CFORRTL. 


-74 Page 20 
Sec SFOROPN.REO: 1 . (i 


- 


[entities ee 5 


- -11 Bliss-32 V4.0-7 Page 21 
15 sen-1984 33:08 78 VES SSDUA2 :CFORRTL. sre FOROPN.REQ;1 (1). 

REC : 
> R0694 OPENSK_MAXREC = 16, MAX ; 
: R0C9 OPEN R-NOSPANBL “s 12, i NOSPANBLOCKS | 
: ROC? OPENSK-USEROPEN = @). i USEROPEN | 
; R069 OPENSK-ORGANIZA = 19 | ORGANIZATION | 
: ROE99 ~OPENSK-ORG_SE0 = 1, i = "SEQUENTIAL 
: RO700 OPENSKIORGIREL = @, i = "RELATIVE 
: 0 OPENSK-ORG- IDX = 3. i = "INDEXED 
: RPO: OPENSK-ORG_HAS = 4, i = *HASHED' 
: RO70 6 i OPENSK-ORG STR = 5S, i = "STREAM 
: RO704 0 OPENSK_READONLY = i READONLY 
; 0705 : OPENSK-RECORDTY = 20, i RECORDTYPE : 
: ROPOP 0 OPENSK-REC_VAR = 2. i = *VARIABLE’ 
: OPENSK-REC-SEGM = $, is SEGMENTED : 
: RO?09 9 OPENSK-REC-STM = 4, i = *STREAM' | : 
ie: SePeeRSESErach og | 2 CTA ce : 
: ROT 0 OPENSK _RECONDST = 6, * 7 RECORDSIZE 
: RO713 0 OPENSK~SHARED = 13, i SHARED | 
; RO7I4 0 OPENSK-TYPE = 15, | Tyee : 
; RO71S 0 OPENSK_TYP_OLD = 1, i = ‘OLD! | 
: RO716 0 OPENSK-TYP"NEW = ¢- i = 'NE | 
: OPENSK-TYP"SCR = 3, i = *SCRATCH' | 
: ROvIB 5 OPENSK-~TYP"UNK = 4; i = "UNKNOWN | 
: RO719 0 OPENSK_UNIT = T, i UNIT ; 
: RP 8 ; 
: OPENSK_KEY_MAX = OPENSK_DEFAULTF, ! Max. open parameter 
: n0728 0 CLOSSK-KEY_MAX = OPENSK_DEFAULTF; | Max. Close parameter | 3 
: RO? ; 9 Key numbers 27-29 are reserved for future OPEN/CLOSE use. | 
> RO727 9 i | ; 
: ROP g 0 ‘ INQUIRE keyword definitions | 
ape oot 
: RO732 0 LITERAL ht, S inok Wika dene | 3 
i Royse OO Nase ~bEFAULT at + OPENSK DEFAULTF, i Defaultfile 
: ROT 8 INQ$K"UNIT = OP ENS NIT ! inevt unit number 
: Aer INQSK ~TOSTA AT = OPENSK NTogtar, : ; JOSTAT ng eal 
; RO? f 6 INQ$K-JOSTAT_L = OPENSK_IOSTAT_L, i 240 val ; 
: i = presen ; 
: Rope Nose EMist c i. i File exists? ; 
et 8 QSK"OPENED = 3{ i File opened? 
: Phas IN “NUMBER = 32, ! Open on what unit? : 
: poms iwege Manes = 33,° : Does it have a name? : 
2 re INOSE “NAME = 3." ' What's its name? : 
z ROS INGSKTACCESS = $5 i Access mode? 
: arte 0 INGSRSESUENTIA =" 36, Is it sequen ial? 
; Rove 0 INOSK-FORK 2 38. i What's the form? : 
: toes INGSe FORMATTED’ = 39, poraes tes? ; 
: RO750 8 INQSK"UNFORMATT = 40, ' Unformatted? 


Saar ae | ir 
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OPENSK ARG ZT = 8, next actual is poe adr. 


RO751 INQ$K_RECL .. ! What's the recordsize? : 
a8 fapemeuet oe BREE, Me cee rere : 
' r ; 
RO754 INQ$K— “ORGANI ZAT z ret ! What's the seferaiyset™ ; 
see paneer inegs ©: Sntt Et genet : 
it 7 INQSK~ “CARRIAGE is i What's the + control? ; 
nO739 INQSK_KEY_MAX = INQSK_CARRIAGE; | ; 
| oo 
RO761 '¢ | 
RO76 i Define FORTRAN OPEN ar unent type codes. . 
RO76 ; _Used in field OPENSB_ARG_TYPE 7 
RO764 : ’ 
RO765 : 
pes LITERAL : 
RO76 OPENSK_ARG_NULL = 0, ! keyword with no value ° 
mares SeeMaeeMeo'y = i: | test atte dn trdMtgygom eae! 
= 2, ! expression ‘ 
RO770 OPENSK_ARG_W_R = ¢: ' nent actual is adr. of word | : 
RO771 OPENSK_ARG_L_V = 4, ! next actual is longword value . 
RO77 OPENSK_ARG_L_R = 5, ! next actual is adr. of hongyord value | ‘ 
RO77 OPENSK_ARG_T7_R = 6, ' mext actual is adr. of ASCIZ string 
RO774 ' (needed for Songos tet ¥ descriptor 
RO775 ! is the preferred form) 
RO776 OPENSK_ARG_T_DS = 7, next actual is adr. of gu descriptor 
i 
i 


; Q 
: 
; 0 
: 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
: 0 
: 0 
2 0 
; 0 
; 0 
; kO779 O 
; 0 
: 0 
; 0 
; 0 
: 0 
: 0 
; 0 
; 0 
; 0 
; 0 
: 0 
: 0 
; 0 
7 


RO778 OPENSK_ARG_INLN = 9, next INFO_WORD longwords are arg. 
with OPENSK_ARG_B_R = 10, ! mext actual is address of byte 

Aad OPENSK_ARG_MAX = OPENSK_ARG_B_R; ! max. arg type code 

RO78 
RO784 1+ 

nore? Define fields within FORTRAN OPEN parameters 

RO787 
RO788 MACRO | 
RO789 OPENSB_KEY = 0,0,8,0 %, : ht oy code. Codes are of form: | 
RO790 ' OPENSK_keyname | 
RO791 OPENSB_ARG_TYPE = 0,8,8,0 %, i arg type code. Codes are 

RO79 i of form: OPENSK_ARG type 

RO79 OPENSW_INFO = 0,16,16,1 %, | i6-bit. lelerenstons 

RO794 i sign extend to 32-bits. 

RO795 OPENSA_VALUE = 0,0,%BPADDR,0 i, ! Address of value - in next 

are position in parameter List 

RO79 OPENSG_ VALUE = 0,0,2%BPVAL,0 1° ! General value = in next 

rita 4 ! position in parameter List 

3 

ROBO! ts 

ais Macros and literals for KEY= keyword and for ISAM 

RO8B04 

RO805 LITERA 

ROB OPENSK _MAB_SIZE = XABSC_KEYLEN + 4; 

R080 MACRO 
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OPENSB_DTYPE = 0,0,8,0% ! Key datatype in OPEN List 
OPENSL-KEY_LO = 4, 4 ate i Low key position in OPEN List 
OPENSL_KEY HI = 8 1% ! High key position in OPEN List 
OPENSB-KTYPE = xAB$C_KEYLEN.0,8,0%, '" Saved datatype 

OPENS S170 = XABSC_REYLEN, 6,8, 0% i Saved key size 
OPENSW-POSO = XABSC7KEYLEN.16,16,0%; | | Saved Low position 


‘+ 
Max. length of ASCIZ string for FORTRAN OPEN file name array 


LITERAL 
OPENSK_STR_MAX = 100; ! Max. Length of an ASCIZ he 
! (arg type TZ_R only). No Limi 
‘i. ! for string descriptor strings 
! Constants used in gereoeter encoding between the 1/0 statement routines 
! and routine FORS$I0O_BEG. The codes are 
! both bit positions Tn the tap word and an index into 
! a table used for sorting out the parameters. 
} ALL are optional for some 1/0 statement. 


LITERAL 
K_UNIT = 0, ! user supplied unit number 
K_CHAR_COUNT = 1, ! size of user supplied record for EN/DECODE 
K_REC_NO = 2, ! user supplied record number 
K_FMT_ADR = 3, ! user supplied format address 
K_USR_BUF_ADR = 4, ! user supplied buffer for EN/DECODE 
K-OBJ-TIME_FMT = 7; ! bit says object time format 


: End of file FOROPN.REQ 


"1 
15-Sep-1984 23:44:38  VAX-11 BLi 0-74 Pa 
1 * g3itgiis | “S3sssp0a) SRCIFOROPN.REO: 1°29 (43, 
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158 300-1964 €3'44 +38 VAX=11 Ot igseze V4.0-7 Page ‘ 
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-Sep- -8255$DUA2 CFORRTL. SRC FORLIB.REQ;1 (1) 


; 84 
3 gee$ 8 REQUIRE "RTLML:FORPAR'; ! Assorted definitions 
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1S-5e 1984 23:44:3 VAX-11 Bliss-32 V4.0-74 Page 25 
1e8eb-1oRe Saiccsts — “SSsbSoOAS8ScPoRMTL OBSTFORPAR.R32:1° 3%" (a5. 
; norte ' Heeeeneeereeetereereeeeeentereereeeeeeeeerereneeteteetteneeeeeteereeteneceeeenneeeeeeeneereeeceeeeeeeeeeeeeeeeeees 
; kOB4S ! Created 15-SEP-1984 22:46:18 by VAXK=11 SDL v2.0 Source: 15-SEP-1984 22:45:22 _$255$DUA28:CFORRTL.SRCIJFORP | 
$s anes ' (RR RRBRASAAASLAAALALELASE SALES ESE S ERE ERLE RES ARE ASCE ESE SEES ESE SESE EOSAECECCCCCOCLLCLLAa aL. eeaeerreeeereeeeeeneeeeeees | 
; ROB 
; 64 

; ROB4 'ee® MODULE SFORPAR *** 

; kRO0850 Literal FORSK_CLASS_SB = 191; 
; =RO0851 Literal FORSK_CLASS NL = 190; 

; ett] Literal FORSK_CONTROL 2 = go 

; R085 Literal FORSKUNWINDPOP = 0; 

; ROB5S4 Literal FORSK_UNWINDNOP = 1; 

i ROBDS Literal FORSK-UNWINDRET = 2: | 
i ROBSE Literal FORSS-FORSR_PAR = 2: 

> R085 macro FOR$r_union_1"= 0.9. 0 %; | 
; OBS Literal FORSs_union_1 = 2; 
3 $4 macro FOR$r_structure_1 = 0,0,16,0 %; 
; RO Literal FORSs structure] = 2; 
; 0861 macro FORS$B_STMT_TYPE ="0,0,8,0 %: 
: ROBGE macro FORSB-STMT-FLAGS = 1,6,8,0 &; 

; ROB6 macro FOR$r_structure_2 = 6.6,16.0 x; 

; ROB64 0 Literal FORSs structure ¢ = 2; 

; ROB65 0 macro FORSV_OBJ_FMT = 078,1,0 2%; 


Ue 30p- 198 33:00:80 VES SSpOASBSTPORMTL SRCTFORLIB.REQ:1 2% (45 


OBe? 8 REQUIRE ‘RTLML:FORRCE'; ! RFA Cache Entry structure 


N11 
13° Sep-1984 43 144:38 VAX=11 Bliss-32 v4 Page 4 


15-Sep-1984 22:46:24 _8255$DUA2 TPORMTL ry FORRCE.R32;1 ( 
5 RO&6B 0 ' Ae eee RRR RRR RRR RRR RRR E RARER RSE ALE SERS LE SELLE CASE CECE E SECC EES ELEC EEE CICLOLCIOCSOOCLCIOLSIICTAICLICCLCLICTLCCLC.. | 
; kROB69 i Created 15-SEP-1984 22:46:24 by VAX=11 SDL v2.0 Source: 15-SEP-1984 22:45:34 _$255$DUA28:CFORRTL.SRCIJFORR 
3 RO870 ' (RAR RRRARAASASLALESLSEALELESE SESE REESE EEE SESE E RSE S ACE SEAEEE ESAS ECEL CEOS CEEOCCLASLSS aE. eeeeeeeeeteeeeeeeeeeeeeees 
; kOB71 
3 ROSre 
; 4 oF wy MODULE RCEDEF iDENT 1-001 **« 
; RO875 i An RFA Cache Entry (RCE) sonteing information about previous records 
; ROB76 O ! in the file for use by FORSBACKSPACE, which implements the FORTRAN 
; et 0 BACKSPACE statement. 
; ROB79 ! for sequ quent ta organization and access disk thts. each time a new record 
; ROB80 » % reed or written, an entry is added to the RFA cache. The cache itself 
: ster} 8 is a circularly-linked List, established when the file is opened. 
5 RoSes literal RCE wk = CACHE SIZE = 20; ! Number of entries in cache 
3 ROBB4 Literal RCE-S"RFA_URION = 8; 
; ROB85 FIELD RCE STROCTSFIELDSET 2 
; ROBBE O SET 
; kRO887 RCE_A_NEXT = 0.8.3 oO] « ! Pointer to next entry 
; ROB88 RCE_A_PREV = (4,0,32,0) ! Pointer to previous entry 
; RO889 RCE_L_LOG wr: = 5 32,0) , ! Logical record number for this entry 
; kR0890 RTE-~Q_RFA = (12,0,6 63 “ 1 RFA tor this ent ry 
; R0891 RTE-L_RFAO = f12.6. 2,0), ! First 4 bytes of RFA 
; ROB92 O RCE_W_RFAG = 16.9 16,09 ! Last 2 bytes of RFA 
: R089 0 RCE_R-RFA STRUCT = (12,6 0.63 : 
: RO894 RCE_R-RFA_UNION = £12,0,6,6 
; ROB9S O TES; 
; ROB96 O Literal RCE_S_RCE_STRUCT = 20; 
; kRO897 O MACRO RCE_R_RTE_STRUCT = BLOCK CRCE_S_RCE_STRUCT, byte] FIELD (RCE_STRUCTSFIELDSET) % 


OE TER eg oe SER AE ARNE. SOOT NS BEE RES TM 


ISBeoct9Rs 35:44:58 VARSIY BLigsc32 140-748, ae. Page i 


89 
$899 8 REQUIRE "RTLML:OTSISB.BLF'; ! Intra=-statement block definitions 


15-56 Sep-1984 t $3:68 38 VAX=11 Bl igs 28 V4.0-74 Page ( 


“Sep-1984 ~$255$DUA28: CFORRTL.OBJJOTSISB.BLF ;1 

3 ' ARR RARARASARRRASASRRRASLSELASSAL ELSES SESE EES E SE REESE REESE ERS R SEC ESSER SSCS EAC E SECC L ACCESSES SCSI LISLE TT 
; : Created 15-SEP-1984 22:48:56 by VAK=11 SDL V2.0 Source: 15-SEP-1984 22:46:55 _8255SDUA28: CLIBRTL.SRCIJOTSI 
3 : PPR EPEC LESSEE ETS ESE ESTES EPS C TCC S CECILIA ILALALLAE LALIT TLL LAE ft} Steerer erereerereeerereeees 
; 3 twee MODULE SISBDEF *#* 

; 0 Literal ISBSK_ST_TY_ WSF = 1; 
3 0 Literal ISBSK_FORSTTYLO = 1; 
; 0 Literal ISBSK_ST_TY_RSF = gi 
3 8 Literal ISBSK_ST_TY_WSuU = 3; 
; Literal ISBSK~ST“TY-RSU = 4: 
; Literal ISBSK-ST-TY-WDF = 5: 
; Literal ISBSK_ST_TY_RDF = $: 
H Literal ISBSK_ST_TY_WDU = 7; 
3 0 Literal ISBSK_ST_TY_RDU = 8; 
3 0 Literal ISBSK_ST_TY_WSL = 9: 
; 0 Literal ISBSK~ST-TY-RSL = 10; 
; 0 Literal ISBSK_ST TY WMF = 11; 
; 0 Literal ISBSK_MIN_DE_EN = 11; 
$ 0 Literal ISBSK_ST_Ty RMF = 12; 
3 0 Literal ISBSK_MAR_DE_EN = 1¢3 
3 0 Literal ISBSK_ST_TY_OxF = 13; 
: 0 Literal ISBSKIST“TY-RKF = 14; 
; 0 Literal ISBSK_ST_TY_WxU = 15; 
; 0 Literal ISBSK_ST_TY_RKU = 16; 
: 0 Literal ISBSKIST-TY-WIF = 17; 
; 0 Literal ISBSK_ST_TY_RIF = 18; 
3 0 Literal ISBSK_ST_TY_WSN = 19; 
; 0 Literal ISBSK_ST_TY_RSN = 20; 
; 0 Literal ISBSK_ST_TY_WIL = 21; 
5 0 Literal ISBSK_ST-TY-RIL = 22; 
; 0 Literal ISBSK_FORSTTYHI = 22; 
3 0 literal ISBSK_ST_TY_PRI = 27; 
; 0 Literal ISBSK-BASSTTYLO = 27; 
; 0 Literal ISBSK_ST_TY_LIN = 28; 
: 0 Literal ISBSK_ST_TY_PSE = $3: 
3 0 citeral ISBSK_ST_TY_INP = 30; 
3 0 Literal ISBSK_ST_TY_PRU = 31; 
3 0 Literal ISBSK_ST_TY_INL = 3g 
; 0 Literal ISBSKIST“TY-DEL = 33; 
3 0 Literal ISBSK_ST_TY_REA = 34; 
; 0 Literal ISBSK-ST“TY~UPD = 35; 
3 0 Literal ISBSK_ST_TY_GSE = 36; 
; 9 Literal ISBSKST-TY“RES = 37: 
; Literal ISBSKIST“TY“SCR = 38: 
: 0 Literal ISBSK_ST_TY_PRE = 39; 
; 0 Literal ISBSK-ST-TY“GRE = 40; 
; 0 Literal ISBSK_ST_TY_FRE = 41; 
: 4 literal ISBSK_ST_TY_UNL = 433 
; Literal ISBSK_ST_TY_FEE = 43; 
; 8 Literal ISBSKUST-TY_GIN = 44; 
; Literal ISBSK"ST“TY“PIN = 45: 
: Literal ISBSK_ST_TY_MOV = 46; 
; Literal ISBSK-ST“TY“FIN = 47: 
3 literal ISBSK_ST_TY_MIN = 48; 
3 Literal ISBSK_ST_TY_RIN = 49; 
; 0 Literal JSBSK_ST_TY_MLI = 50; 


Se 


=: 


30 


(1) 


Page 


$5732 ga 
55$DUA28: CFORRTL.OBJJOTSISB.BLF;1 


VAX=11 BLi 


82 


Con] 
oO « 
7 — .* ¢ 
. on 
tn} ss Cm] on le 
ee oO Lo] oO DOO + . 
. mmo & . . * <2 « 
on me oO + . *. im ss 3s ™eMm © . = 
oo om s+ a =) am) Ln) . ms Oo -oOonm So 
ses es 8 8 TA 8 IO _ “re a mons ee OOUmrM © 
NUN NOM OMMO CO +s -_—_- OOo COm OO © IM + OO oO 
° Mom sOm ss sw sO mew Om + wm +s Om . es 7 Whe > = 
eee Oo sO wT COOCOCOCOUOCO m0 Mm COONNON® © + ® wWMOWOWOCOe-- -— mon + 
ere tO rere o oo soom sss & § OO C000 IM MCN += Mm rere = eH 1 OOOO 
HPMTUUNOO ses es eN e—PVOOWF OO + OM + = WO 8 MY ee MCUMmOnr€, «+ + ~oMmi My esee ees 
mn MODO -s @momwi mM RF 8 OO ~OOr-OCOmMo! M—- OOCOo;CkK KrF MOOCDdOe 
un —-Or-O lll Oem WO Wer ttO0O Ow 2 2 8 8 8 es eo 8 O28 8 8 8 8 ee Vie &§+§ = 
nun nie = --O- or 1 1 ~O-O -OMOOCOOD MOO DONG 1 HD -OWO— 
<a “ = a ee = et ee ee ee | 
weWunwh th lt @ ww DO ~~ §YVOte TR NRK KVM NT OOOCORK RK KN Wr OM OW 
“Aacaarz o — t 3) —Ow nN NOnKwY Ome Tiri ryi Zw =e 8 sh tb te ee eK te 
weEEOu>O2-—w~ “nueu t- -} He 8 bere tte ta I OO. Ott — ThE ti 
ett @&Dw t t- wu a awineoa tei ia) Qo o a atest Nee ' www a ) 
> ee re IC OC Vito ft ws Ze COW! VCWHWH HH tere HHH bY 
a ed oo el ook oe: a — oc ee ee a au eee So Own oO 
$6806 MO@Orr Ow KF SHAD uw § ID MYHN et He Nee EE er Vvo>r acide 
eee ECC sSMY act Ot eK-wwe@at OF ft a at ewe hod ts ec OF w 
MMMMNMODS|35—Q0 aor w re OAY>> Ve VaewZwmM>ZVIVVAIMA Wee er eR ee VOOM oO ku 
@eeceeepetc et Oe wm £m & MED ttt tlk ewoOOow ft 16s a we tt Ow 
MMM MMMM MYWII YRC Cr WC FWMYVEeCe-aPCadc tiwwO- Cw BowrvZ Cu >ur Caeor 
PAPAAPAEO AAA A wh Sse O@e | wOoOzvoamvocoekg ttt @eO titi Eewo wr &€-0 | & 
@MBOODOODOODOOOOuw G-£Orwicae Oe ee ee ee Oe Oe in ee eh OE ee 
AMMNNMNNNMNNVNSA 'tc § 16M MA 1C 1 tC | 1C-Easze | tc-EEEE tts A ticzeez 1 
Meteo @Q@et Set IO BOD « “23 “29 SMe wwe fo Sojuuuuw 33s eet 3 Suu B 
SeSeeEeecxz~ BBSBSe5S— (3.83.95. a2s<<Bo.<azsanese “BS. 205 
— “ee — -_ 
@eeeeeae2eaeaeen ANMANYMNRABAY RADDA DRERAAAADDAARABRDDDS S8aa83 
eeeetcetet & Ore OOO OO  MOODOOOO=——-DMOAOOOO----=-@W ——O@om@m- 
@eeeoeoooeeo @ iw “” “ww ” ” MNMNMNNwW MNnNnnn ”“ mwwnn 
Oe ee a a a a ev ot ee — — Ht ee es pe a coal ea 


COOOOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSSOSOSOSOSOSOSOSSOSOSSOSOSOSOSSOSOSOSOSSOOOSSSOSSSSSSSSS 


-DOOK— UM TNO. OOO 


Orso SEARLE OS SENS SLE SS LE NLL LE ASSN SSS SS OK Ne 
SESSSSSSSESS OSSD DOORS SESE SEES EES P3333 3333 SSsssssssesss 
OOCCCCOCOCOCOCOCOCOCSOOCOCCCOOCOOCOCCOCCCOOOCOOCOOOCOOCOOCOOCOOCO De |e Td auth oath mh eh ah eh ea a et a a 

@Qaacaacacaacaeaeeaecaeaaceaacacaecateaeacaeeaeacacaeacaecaeaacaeaeaeaaaaacacaacacacacae 


octal 


| 
| 


WANA RIPUPOPONPOPUNYNUDD SS SS 


5ep-1984 VAX-11 Bliss- 31 
i§-t¢ gep-18Be 88:65:38 Meret Ha TPoRKTi oBsioTSise.eLF:1 ei) 
ISBSBSINB FLAGS, 2 C< 
ts =109, 

{385 "oe; 
= 


1S 
ISBSR yl! mas i: eoFn ton * 
1SBSw nm STKt = [-10 
1S ORM 


kk ak a hd 8 8 oh od 
a lew fa lolololeolololeleolololelelelelelelelololelalea) 


WWW 


R1039 


po] DDDDVHVDHDVD ADD VDDD DAD DADA VDDADD® 
oO BWA PU ODOo MUNN DOO 


pee ee ee we nln lola lo lolololelalealolalelalaleleleleleololelealolalola) 


Se Se Se Se Oe Se Se Ge Ss Be Se Oe Be Se Se Se Ss Be Se Se Be Oe Se Se Be Se Se Os Se Se Ge Os Oe Se Oe Sees 


BSV_ 

Jsesy NEED_INIT = 
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189; 
BCOCK CISB$S_ISB,byte] FIELD (ISBSFIELDSET) %; 


1-4 Bep- lobe S3:cci88 | “SNSE SD OAds STPORRTL SRC FORLIB.REQ:1°°%* (75 
; 195 UNDECLARE ZQUOTE 1B; 
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REQUIRE "RTLML:OTSLUB.BLF'; ! Logical Unit Block definitions 


Sep-1984 VAX-11 Bliss-32 V 33 
| 1-46 30p2198e $8id3i38 §«— “ShsbspGAdsScPaenti omsdorsius.eres1 2% «a 
H R1054 ' SROKA AAR ERE AAAAAAA EAA EAEE AERA AEEE EEE AERA AAAEAAAARAAEHRERAAAEEEEAAEETEREAAAEReeHAe eee e Ee 
> R1055 i Created 15-SEP-1984 22:49:15 by VAK=11 SDL V2.0 Source: 15-SEP-1984 22:47:02 _$255$DUA28:(LIBRTL.SRCIOTSL 
$ R10 $ ' RHRAR HARKER E RARER HARARE AERA ATA AAA E EAA TTE AERA E TARTAR ARERR AHA RARER ERR R ee eee eT eee AeA eee eee ee teeeeeneeees 
: R1057 0 

: R1058 

+ R1059 ‘eee MODULE SLUBDEF *#* 

; R1060 litera LUBSK_ORG_SEQUE = 1; 

+ R1061 0 Literal LUBSKIORG-RELAT = ¢: 

; RIgeS Literal LUBSK_ORG_INDEX = 5; 

; R10635 0 Literal LUBSK_ORG_TERMI = 4; 

; R1064 0 Literal LUBSK_ORG_VIRTU = 5; 

; R1065 8 Literal LUBSK_LUN_BPRI = mf 

; R1066 Literal LUBSK_LUN_INPU = -7; 

: R1067 0 Literal LUBSK-LUN-BREAD = -6; 

; R1068 0 Literal LUBSK_LUN_ = <5; 

> R1069 0 Literal LUBSK_LUN_READ = -4; 

; R1070 0 Literal LUBSK_LUN_ACCE = -3; 

; k1071 O Literal LUBSK_LUN_ = -2; 

; k1072 O Literal LUBSK_LUN PRIN = -1; 

; k1073 0 Literal LUBSK_ILUR_MIN = -8; 

; R1074 O Literal LUBSK_DLUN_MIN = -4; 

; k1075 O Literal LUBSK_DLUN MAX = -1; 

; R1076 O Literal LUBSK_LUN_AIN = 0; 

; R1077 0 Literal LUBSK-LUN-MAX = 119; 

; k1078 O Literal LUBSK_D MARGIN = 72; 

: R1079 0 Literal LUBSK~PBUF_SIZ = 80; 

: R1080 0 Literal LUBSK~NEG BLN = -100; 

; R1081 0 Literal LUBSK_LANG_MIN = 0; 

: R1082 0 Literal LUBSKLANG_-NONE = 0; 

; R1083 0 Literal LUBSK_LANG_BAS = 1; 

; R1084 0 Literal LUBSK_LANG FOR = 2; 

: R1085 0 Literal LUBSK-LANG MAX = 2: 

> R1086 0 literal LUBSK~LUB CEN = 100; 

3 R1087 0 Literal LUBSS QUEDE = 8; 

> R1088 0 lite $$ = 6; 

: R1089 0 FIELD *tuBSFIECDSET = 

>: R1090 0 SE 

: R1091 0 LUBS$A_UBF = [-100,0,32,0] , 

> R1092 0 LUBSW_UNIT_STT3 = [-96,0.16,0) , 

: R1093 0 LUBSV_NOECHO = f-96.0.1.04 : 

: R1094 0 LUBS$V~ONECHR = [-96.1.1,0) . 

: R1095 0 LUB$V~CCO = [-96,2,1,0]., 

: R109% 0 LUBSV-FIND_LAST = (-96,3.1,0) , 

> R1097 0 VIPTA = [-96,4,1,0).. 

: R1096 0 LUBSV-AST_GUARD = [-96,5:1,0) . 

: R1099 0 $V~CR = [-96,6,1,0] - 

: R1100 0 LUBSV-FIN = £-96.7.1.03 ‘ 

> R1101 0 LUBS$V~PRN = [-96.8.1,0 

: R110¢ 0 $v ="(-96,9,1.0) , 

+ R110 0 LUBSV-USEROPEN = [-96.10,1,0]., 

> RI104 UBSV“NOTSEQORG = (-96,11,1,0)', 

: R1105 0 SVANSI = (-96,12,1,0] , 

: R1106 0 UBSV-RFA_CACHE E ENABLE = (-96,13,1,0] , 
: R1107 0 LUBSV~F IECD DL Yse [-96,14,1 03 

: R1108 0 LUBSR_URIT, sTT S-STRUCT = [-56, 0,16,0) , 

> R1109 0 LUB$r_un 6.0) , 

: R110 0 LUBSW~ va “ESat ‘ 76595) , 
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j 
; 11 UNDECLARE ZQUOTE LUB; 
: i '¢ 
: 11 i i Define macro that declares the CCB structure. Note that it has no 
; i : allocation size = it must be used in a REF declaration. 
: 1196 ' | 
; 26119 MACRO 
3 4} «J SFORSCCB_DECL = BLOCK C, BYTE] FIELD (LUBSFIELDSET, ISBSFIELDSET) %; 
: 1200 REQUIRE "RTLIN:OTSCCBREQ'; ! OTS CCB data structure definitions 
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‘+ 
} This file, OTSCCBREQ.REQ, defines the interface to OTSSPUSH_CCB Edit: $8L1006 


' 
PARESELSELISIOII OTITIS TTT Terre Tec TTT icici Tire i iret ici iti iii i iii ts 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE a3 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
:¢ or IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
& 
& 
* 
® 
ca 
® 
* 
® 
® 
ie TRANSFERRED. . 
® 
® 
® 
*® 
® 
& 
® 
*® 
* 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eompOhat ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ners OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


PO at at ot 2 OO 
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Revision History: 


' 

i 

i 
i 1-001 = Original. JBS 09-JAN-1979 

i 1-002 - chenge name to OTSCCBREQ.REQ so as not te, conflict at system 

i build time with OTSCCB.B32. SBL 10-M May-19 

' 1-003 - Add the definition of the structure for OTS$$AA_LUB_TAB. 
JBS 28-JUN-1979 | 
i 
i 
i 
i 
i 
ie 


WN "SO ODNOAUESWN —“OOONOuUsS 


WWW winonononofnonofnonony 


we 
Sar 
SOOCSSOOOSOOSOSOOCOSOSSOSOSOSOSOSSOSSOSOSOSOSSCOCSCSOSOOSCOOOCOCOOOCOOCOCOCOCOOOOOOOOOO 


1-004 - age oe Sotiotsien of the field for OTS$$V_LUN_OWNR. 
1-005 - arty a Statement. for the new BLISS compiler. | 
1-006 - Add new structure OTSSS$LUN_OWNR_ST used for OTSS$$V_LUN_OWNR. This | 

helps BLISS generate smallér code for references to this structure. 
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'¢ 
} Define the return codes from OTS$PUSH_CCB. 
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LITERAL 

' Smallest valid value 

' CCB loaded, 1/0 not  attes 

' CCB loaded, 1/0 active on this LUN 

' CCB not loaded, out of virtual storage 
' Largest valid value 
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S$ 
OTS$K push PAIL 4 
OTS$K"PUSH"MAX = “3; 


'¢ 


i The following structure is used for addressing OTS$$AA_LUB_TAB. 
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' It is similar to VECTOR, but offsets the index so that certain 


: negative logical unit numbers can be used, and each element is a 
Quadword so as to act as a queue header. 
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STRUCTURE 
OTSS$LUB_TAB $s" Cl, SIDE; N, LB, UNIT = 4, EXT = 0] = 
N*UNIT#2 


(OTSSSLUB_TAB_ST + ((SIDE + ((1 = LB)®2))*UNIT))<O, 8*UNIT, EXT>; 


'¢ 
ioe souteutng structure is similar to BLOCKVECTOR, but allows a low and high 
. oun — 


STRUCTURE 
OTSS$LUN_OWNR_ST CI, 0, P, S E: L, H, BS, UNIT=1] = 
C((H7= L)7+ 1) * BS ® UNIT 
(OTSS$LUN_OWNR_ST + (0 = L) + ((0 + 1) * BS * UNIT))<P, S, E>; 
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'¢ 


R1279 ! The following field is used to refer to OTSS$V_LUN_OWNR, which has a bit 
& 281 ! for each LUB, each block containing a bit for each language. 
8¢ FIELD 
8 OTSS$v OUNR_FLD = 
OTS$$V_OWNR_BAS = (0, LUBSK_LANG_BAS, 1, 0), ' BASIC 
OTS$$V"OWNR_-FOR = [O, LUBSK_LANG_FOR, 1, 0) i FORTRAN 
O1S$$v_ WNR = C0; LUBSKTLANG-MIN, (((LUBSK_LANG_MAX-LUBSK_LANG_MIN+%BPUNIT)/%BPUNIT)*%BPUNIT), OJ 


+ 
! The following masks are used to test OTS$$V_OWNR to be sure that only 
one bit is set. 


LITERAL 
OTS$$M_OWNR_BAS = 1 * LUBSK_LANG_BAS, 
OTS$S$M_OWNR-FOR = 1 “ LUBSK~LANG~FOR: 


! End of file OTSCCBREQ.REQ 
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; R1275 0 
; R1276 0 
> RIg77 O 
; 0 
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; 0 
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; 0 
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REQUIRE "RTLIN:OTSLNK'; 
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! (Must come after OTSISB and OTSLUB) 
! Common Linkage definitions 
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a File: OTSLNK.REQ Edit: PLL1035 
i This file, OTSLNK.REQ, contains the definitions of all LINKAGE declarations 
for BLISS modules 


! 
i eeeeeerereeeeeeeeeeeeeeeeeneeeeeeeneneeeeeeteeeteteeeeeeeeeeeeeeeeeeeeeeeees | 
' 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
4 ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 
® 
* 
* 
* 
® 
* 


!* DIGITAL ASSUMES NO ~ ry, 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e 
: i eeeeerereeereeeererereeeeneneeeeenenereeeeererteeereetereeenereeeeeaneeeeeer 
1 
: 
33 ! Author: T. Hastings | 
33 ' 1-11 = Add CALL_RO. TNH 29-July-78 
33 ‘ ae - Add JSB_CB_GET. TNH 2-Aug-78 
33 ! 1-15 = Change name to FORLNK.REQ. JBS 14-NOV-78 
33 ' 1-014 = Add copyright notice. JBS 16-NOV-7 
33 : 1-015 = Change file name to OTSLNK.REQ. JBS 06-DEC-78 
33 ! 1-016 = Add linkage for BMF (Basi mejor frame ptr) - R11. DGP 17-Dec-78 
33 ! 1-017 = Fix some comments. JBS 18-DEC-78 
tz : 1-018 - change gS8 RECO Linkage to save registers needed for CHSFILL. DGP 
‘ -Feb- 
34 ! 1-019 - Similarly, change JSB_UDFO, since the UDF routines must 
34 : preserve the same registers to call the REC routines. 
34 ‘ JBS 28-FEB-1979 f 
34 ! 1-020 = That spange causes a similar change in JBS_REC1 and JSB_REC9. 
34 ‘ JBS 28-FEB- ; 
34 ! 1-021 = Which in turn causes the same changes in JSB_UDF9. 
34 : JBS 28-FEB-1979 
34 ! 1-022 - Which in turn causes the same ghanges in JBS_DO_READ and 
3 ! JSB_DO_ WRITE. JBS 28-FEB-197 
5 ! 1-023 - Add Tinkage JSB_CCB_A1_A0 for PUT relative with count. DGP 02-Mar-79 
35 ! 1-024 = Add Linkage JSB-REC"IND for indexed file support. DGP 9 -Apr-79 
35 i 1-6 5 - Change Linkage JSB_REC_IND to take 5 args. DGP 6 ~Apr-79 
35 ! 1- - Add linkage for converSion kernel routine. bgp syyners 
35 ! 1-028 = Add U inkave for Basic format routines. DGP 30-Jul-79 
35 ! 1-029 = Remove PRINT statement, for new BL Ass compiler. JBS 02-OCT-1979 
35 ' 1-050 = Change JSB_FORMAT_A7 to Al0. DGP 31-Oct-79 
35 ! 1-031 = Add new Linkage JSB_REC_WSLi. DGP 06-Nov-79 
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1-035 - Change JSB_UDFO, JSB_FMTO so that they pass no arguments. SBL 5=Dec-1979 
-035 - age, inks . JSB_FMT1 for Fortran format interpreter. JAW 
-AUQG- 
Chan : JSB_A5_R11 to JSB_A6_R11, JSB_A10_R11 to JSB_A11_R11. 
PLL 16-Mar-19 
Change JSB_DO_READ, JSB_REC_IND, JSB_RECO. PLL 1-Jun-1982 
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'44 

: Linkage definitions for BLISS modules for CALL and JSB routines 
! The idea is to have all definitions here in one place 

! so that ae can be changed easily and the entire 

RIL recompiled. 


44+ 

! Define symbols for register numbers used to pass parameters from one 
! module to another. Note: these symbols are used in the modules in 

' GLOBAL REGISTER declarations rather than below in this REQUIRE file 
! (where all registers appear as absolute numbers). 


LITERAL : - 
K_BMF_REG = 11, ! Register used by Basic compiler to point 
' to Last major frame 
K_CCB_REG = 11; ! Pointer to LUB/1SB/RAB 


+ 
! First define some macros for frequently used combinations. 

: Do mot change the PRESERVE conventions for our sanity. ; 

: Also do not change the definitions of these combination, since . 

: they are also used in defining local routines within a module that is CALLed!!! 
! NOTE: Local routines which are JSBed to from JSB procedures must 

! have LINKAGE definitions here even though only local procedures. 

! Otherwise, lose control of NOTUSED popiosers which must be same 
! or more inclusive for JSB routines called by JSB routines. 

See DO_READ and DO_WRITE for examples. 


MACRO 


'¢ 
CALL interface with CCB passed in R11 (in and/or out) 


CALL_CCB_R11 = 
CALL? GLOBAL(CCB=11) %, 
'¢ 
! JSB interface with CCB passed in R11, 1 arg in RO and 1 arg in R1 and 
only uses RO and R1 


JSB_CCB_A1_AQ = 
JSB” (REGISTER = 1, REGISTER = 0): GLOBAL(CCB=11) NOTUSED(2.3,4,5,6.7,8,9,10) %, 


'¢ 


Pe ee ee Be ee oe 
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; eel? } CALL interface with BMF passed in R11 (in and/or out) 

3 Rei? 

; MR14618 CALL_BMF_R11 = 

> R1619 CALL? GLOBAL(BMF=11) %, 

; R1620 0 

3 R1621 0 

3; (RIG ¢ 0 + 

: RIG 0 ! CALL interface with Ist arg in RO 

> R1426 0 le 

; R1425 0 

3 MRIG § 8 CALL_AO = 

3; 6R1G CALL (REGISTER = 0): %, ‘ 

; R14628 0 

; R14¢9 0 (joe ; 

; ks 3 JSB interface with CCB passed in R11, no args and uses RO-R5 

; bh 0 

; MR1433 O JSB_CCB_RS = 

> R1434 0 JSB: GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 

; R14635 0 

> R1436 0 '+ 

3 aioe 8 JSB interface with CCB passed in R11, no args and only uses RO, R1 
: R1439 0 

; MR1440 0 JSB_CCB_NO_ARGS = 

3 Spat JSB? GLOBAL(CCB=11) NOTUSED (2,3,4,5,6,7,8,9,10) %, 

: R1463 0 '¢ 

; Avec] 4 JSB interface with CCB passed in R11, 1 arg in RO, and only uses RO, R1 
: 1446 0 

> MR1447 0 JSB_CCB_AO = 

; ae JSB (REGISTER = 0): GLOBAL(CCB=11) NOTUSED (2,3,4,5,6.7,8,9,10) %, 
; R1450 0 1+ 

; R14651 O ! JSB interface with CCB passed in R11, 1 arg in RO, and preserves 

3 ET 3 : through R5. Needed for MOVCS or calling routines that use MOVCS. 
; R1456 0 

; MR1455 0 JSB_CCB_AO_R5 = 

; bes} 4 JSB™ (REGISTER = 0): GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 

3 =R14658 1+ : 

3 «R1659 ' Same as above, but with 2 arguments. 

; R1460 O ad 

: mR ieee 8 JSB_CCB_A1_R5 

: yet 4 “JSB” (REGISTER = 0, REGISTER = 1): GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 
; R14665 O '¢ : : 

3 RIG 0 ! JSB interface with CCB passed in 211, 1 arg in R2, and only uses RO, R11, R2 
3; R1467 ! Needed when input arg is referenced after a CALL or JSB, 

3; R1468 ' so do not need to copy to R2. 

; 6R1469 !e 

: R1470 O 

3; MR1471 0 JSB_CCB_A2 = 
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JSB (REGISTER = 2): GLOBAL(CCB=11) NOTUSED (3,4,5,6,7,8,9,10) %, 


AX-11 Bliss- 
SSSDUADB STP ORKT 


'+ 

i JSB interface with CCB passed in R11 arg in R2, ong. erecerves 
! through R5. Needed in place of JBS_ éce A2 to do MoVC5, or call 
a routines which do. 


STER = 2): GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %. 


14 

i JSB interface for Fortran format at with CCB passed in 
i R11, two arguments passed in R10 and P?, and routine value 

a returned in R8. 


JSB_CCB_ FMT = 
JSB™: GLOBAL(CCB = 11, 


EL_ SIZE = 10, DT SEEN = 9, FMT_CODE = 8) 
NOPRE SERVE “a, 3) NOTUSED ( 


D (4,5,6,7) %, 


1+ 
i i Pass. ar for Indexed files 
i _Pass arguments (6) in RO: RS and CCB is passed in R11, 


JSB_CCB_A6_RS = 
“JSB- (REGISTER = 0, REGIST 
REGISTER = 4, REGISTER = 


JSB_CCB_AS_RS 
JSB™(REGI 
REGISTER 


2, REGISTER = 


R = ae 
UE = 11) NOTUSED (6, 7, 8, 9, 10) %, 


STER = 0, REG TER = 2, REGISTER = 5, 

= 4):GLOBAL ( D (6, 7. 8, 9, 10) %, 

'¢ 

i JSB interface with CCB passed in R11, argi in R2, arg2 in RO, 

i and only uses RO, R1, 

i Needed when input arg! is referenced after a CALL or JSB, so save 


‘ copying to R 
JSB_CCB_A 

“JSB~ (REGISTER = 2, REGISTER = 0): GLOBAL(CCB=11) NOTUSED (3,4,5,6,7,8,9,10) %, 
'¢ 


JSB interface (no CCB), args in RO and R9 


JSB_AO_A 
~ARBCREGISTER = 0, REGISTER = 1) : NOPRESERVE (2,3,4,5,6,7,8)%, 


'¢ 
! JSB for Basic format routines - Plain F and E format. Pass 
6 args and preserve all other registers. (1 optional arg) 
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1s 
“JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, REGISTER = 4, REGISTER = 5) 
PRESERVE (6, 7, 8, 9, 10, 11) %, 
14 
i JSB for Basic format routines = Fancy F and E eyraets. Pass 11 args and 
i Preserve all other registers. (4 optional args) 
JSB_A11_R11 = 
JSB (REGISTER = 0, REGISTER = REGISTER = GISTER = 3, REGISTER = 4 
REGISTER = 5 REGISTER = 6, RE Gisten : Y ReGisteR > 8, REGISTER = 9, REGISTER = 10) : 


+ 
JSB interface (without CCB), no args in registers 


JSB_NO_ARGS = 
“JSB: NOTUSED (2,3.4,5,6,7,8,9,10) %; 
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/ R1550 \+4 
+; = ©R1551 o ! Now define the LINKAGE declarations. 
E R1 26 ! Use names associated with the entry point rather than 

is Ri 0 ! the type of Linkage, so that we can easily change 

; k1556 0 ! the Linkage for an entry point without changing that 

; (ORI Fi 8 ! for other yt points. 

> R1556 : Note: entry points that are dispatched to using a table 

; kR1557 O ! must have the same Linkage name. In this case the LINKAGE 

; R1558 O ! mame is associated with the name of the dispatch table and 

; ni 222 8 } the call is made using the general LINKAGE form. 

; R1561 8 ! NOTUSED restriction!!! Because each JSB declaration must be 

; Ted; ' aware of all JSB routines which are in turn called. The NOTUSED 
> «RIS 0 : registers can only be the same as the caller (if also A JSB routine) 
; R1564 0 ! or include additional registers as well as 2s the same. 

> R1565 0 : Thus, this file documents the calling tree for JSB Linkages 

; R208 8 so that the NOTUSED declarations can be kept in agreement. 

; R1568 O 

; kR1569 O LINKAGE 

; k1570 O 

; kR1571 O + ; 

: ALLE: 0 : Default CALL using CCB as a GLOBAL register, 

; R1573 0 ' all args in arg List. 

; R1574 0 t= 

; k1575 0 

; kR1576 O CALL_CCB = CALL_CCB_R11, 

; k1577 O 

; R1578 O + . ‘ ' 

; R1579 0 : CALL from BASIC compiled code, which uses R11 to point to the 
; kR1580 0 ! major frame. 

; R1581 0 Hod 

; R138¢ 0 CALL_BMF = CALL_BMF_R11, 

; kR15835 QO 

; R1584 0 '¢ 

5 tH 5 This is a Linkage for BASSSREC_WSL1 to allow one arg to be passed. 
; R1587 0 

; R1588 O JSB_REC_WSL1 = JSB_CCB_AO_R5, 

; R1589 0 

3; R1590 0 '¢ " 3 

; R1591 0 ! CALL passing first arg in RO. ‘ 

; kR1592 0 ' Used by FORENTRY module to make multiple entry points 

3; =6©R159 4 ' all branch to FIOBEG. 

3 6R1594 fe 

; R1595 0 

: 15 0 CALL_FIOBEG = CALL_AO, 

: R1597 8 

3 =R1598 '¢ “ee E : 
; R1599 0 : UDF initialization (user data formatting level of abstraction) 
; R1600 0 ! Arg is adr. of format statement. 

; R1601 0 ! JSBs to record level initialization (JSB_RECO). 

: R1602 0 !e 

; R1603 0 

; R16046 0 JSB_UDFO = JSB_CCB_RS, 

; R1605 0 

; R1606 0 '¢ 


| 
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oO 


JSB to plain formatting routines for Basic. 


oo 


ao 
FUN “OC ODONOAUSWN OOO 


JSB_FORMAT_A6 = JSB_A6_R11, 
'¢ 
JSB to fancy formatting routines for Basic. 


JSB_FORMAT_A11 = JSB_A11_R11, 


'¢ 
! UDF termination (user data formatting level 
JSBs to DO_READ (JSB_DO_READ) or DO_WRITE ( 


JSB_UDF9 = JSB_CCB_RS, 


'¢ 
! UDF read routine 
JSBs to record level (JSB_REC1). 
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JSB_DO_READ = JSB_CCB_A1_R5, 


'¢ 
! UDF write routine 
JSBs to record level (JSB_REC1). 


pe] 
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JSB_DO_WRITE = JSB_CCB_AO_RS, 
'¢ 


! Format interpreter initialization: FORMAT_ADR = arg is adr. of format statement 
: JSBs to nothing. 


JSB_FMTO = JSB_CCB_NO_ARGS, 


R1646 '+ 
: Format interpreter main processing 


JSB_FMT1 = JSB_CCB_FMT1, 
'¢ 


: JSB to REC level of index file support 


IND = JSB_CCB_AS_RS5 
IND1 = JSB_CCB_A6_RS, 


PADMA UII & & 
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'¢ 
: Record level RMS interface level initialization. 
JSBs to nothing. 
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4 JSB_RECO = JSB_CCB_RS, 
: Riees JSB-RECS : JSB-CCB-A0_RS, 
: RIG " 
: R1ee8 i Record Level RMS interface level finished one buffer 
> 1669 6 i JSBs to nothing. 
i re? 
: Rien O “6 
: R167 0 JSB_REC1 = JSB_CCB_RS, 
: Riera 14 
: Rees i Record Level RMS interface termination of statement. 
+ R1676 6 ! JSBs to nothing. 
: Rie 8 é 
: R1679 0 JSB_REC9 = JSB_CCB_RS, 
; kR1680 0 ¥ 
: Rens 6 i Push current LUB/ISB/RAB: LOGICAL_UNIT is unit no., LUN_MIN is min. no. 
+ R1683 0 i JSBs to nothing. 
: Riess 0 
: RI 0 JSB_CB_PUSH = JSB_CCB_A2_A0, 
: Riess 0 r 
: R1689 0 i PUT relative with count 
: Ries 0 2 
> R1692 0 JSB_PUT = JSB_CCB_A1_A0, 
: R194 0 1+ 
> R1695 0 Pop current LUB/1SB/RAB 
; R1696 0 ! JSBs to nothing. 
: Riess 0 
> R1699 0 JSB_CB_POP = JSB_CCB_NO_ARGS, 
: k1700 O om 
: R102 4 i Return current LUB/ISB/RAB to free storage (open error or close) 
: R1703 0 i JSBs to nothing. 
8 eee 
; m1 706 JSB_CB_RET = JSB_CCB_NO_ARGS, 
: R1708 ‘+ ; 
: : " t LIB/ISB/RAB (called only from non-shared routines) 
: BN 6 i ny Big OR Ay ig ond a data entry vector atch Yo the same 
: aie $ if module were to become shared or vice versa. 
: Ria 6 JSB_CB_GET = JSB_CCB_NO_ARGS, 
ie 
: Riri? 0 i JSB to kernel conversion routine 
th bi9 a 
> R1720 $ JSB_CVT_KERNEL = JSB_AQ_A1_R8, 
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ie 


JSB_NO_ARGS; 


JSB to CALL_VFE routine, args on stack 
End of file OTSLNK.REQ 


JSB_CALL_VFE = 


' 
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X= 4 Bt igs -32 V 
-Sep-1 $25 $DUA28 :CFORRTL. SRC FORLIB.REQ;1 ( 


: 1729 
: 1783 REQUIRE "RTLIN:OTSMAC'; ! Common macros 
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-Sep-1984 -$255$DUA2 CFORRTL.SRCJOTSMAC.REQ;1 ( 
; k1731 O ‘+ 
; «RI? § 0 i This file |S caaadhias defines OTS macros. 
: R17 0 i Edit: SBL1039 
aestet ¥ 
: R1736 8 RITITISITITIIIIILILILLL LITT LLTLT LITT LLL TLL Lit TiiTi titi iii iiiitiiiiie 
; k1737 O 1° * 
; k1738 =O '® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
; k1739 O '‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ’ 
: Rios 8 :* ALL RIGHTS RESERVED. * 
3 ‘@ ® 
3 mireg 8 '® wie ee ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 «R174 'e Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; R1744 0 '® INCLUSION OF tHE ABOVE copra ent MOTICe. THIS SOFTWARE OR ANY OTHER * 
; k1745 O '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: R1746 0 't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: ai er 4 ? TRANSFERRED. * 
3 it ® 
; R1749 +O !t THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; k1750 O 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ye? * CORPORATION. . 
3 ‘* ® 
3 R188 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 kR1754 «OO '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
; kR1755 O '® * 
; k1756 O ‘® * 
3 R1757 0 Lee REAR A EEA RAAT 
; k1758 O : 
; k1759 O ! 
; k1760 O ! Author: T. Hastings 
; R1761 O 
; R1762 O ' 1-25 = REQUIRE LPSECT. TNH 19-Dec-77 | 
; kR1763 0 ! 1-26 = Remove _SET_CB_BASE(). JMT 12-A IRE. 
3; R1764 «(OO ! 1-27 = Use RTLIN: To ogical ne nene in REQUIRE. oa 28-Apr-78 
; k1765 O ! 1-28 = Define ADR_VECT H 7-June-78 | 
; R1766 O ! 1-30 = Change name to PORMACS NREQ (with apologies to Dick Gruen) 
; R1767 O : and change name of LPSECT to RILPSECT JBS 14-NOV-78 
; R1768 O ! 1-031 = Add a copyr ight net ice JBS_ 16-NOV-7 
; kR1769 O ! 1-032 - Change file name to OTSMAC.REQ aoe roaove i of RTLPSECT. 
; k1770 O ' (Let users of OTSMAC.REQ also REQUIRE RTLPSECT.) JBS 06-DEC-78 
; k1771 +O ! 1-033 - Add offsets and Lengths of the dispatch tables. JBS 25-JUN-1979 | 
; k1772 O ! 1-034 - Make them weok lobals so they can be used by macro routines. 
: k1773 O ‘ JBS 26-JUN-197 
; kR1774 O ! 1-035 = Remove FORTRAN offsets and Lengths (moved to ISB). JBS for SBL 
; k1775 (O : 12-JUL-1979 
; kR1776 O ! 1-036 - Remove BASIC orneete and lengths (moved to ISB). i 12-JUL-1979 
; k1777 (+O ! 1-037 - Remove PRINT s atenent - for new BLISS compiler. to OCT-1979 
; k1778 O ! 1-038 - Add COPY_BYTE 7 COPY WORD_ a COPY cONG_A, COPY “auad 
; k1779 O : macros. ~SBL 18-Dec-1979 
; kR1780 O ! 1-039 = Add ONE_OF macro. SBL 18-Dec-1981 
; k1781 O !e= 
; R1782 O : 
; k1783 O '¢ 
; R1784 0 i Macro for writing a character string and then advancing pointer 
; R1785 0 i Designed so that it is placed on the left side of a substitution 
; R1786 0 i statement. Anti repetes feature we tix | added to BLISS as a form 
; R1787 0 ! for CHSWCHAR_A SPA) if looks goo 
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3 Ries ! ; 
> =R1789 ! Call: CH_WCHAR_A (CS_POINTER_ADR.ma.r) = ... ; ; 
; k1790 '- : 
3; R1791 F 
: aires MACRO : 
; MRI79 CH_WCHAR_A (CS_POINTER_ADR) = : 
3 MR1794 3 
; MR1795 {Lo CAL : 
; mR1 796 0 ts “BoINT NTER_ADR: 3 
> R179 ts “POINTER. ADR = 2 CHéPLUS (.CS_POINTER_ADR, 1); ; 
; R1798 0 <0,8> 1; : 
; k1799 O 3 
; kR1800 0 ; 
; R1801 0 1+ | ; 
3 Ab) 0 i Macro for writing a character uithout Syene hg the pointer. : 
; k1803 0 i Desinged so that is pieced on the left of a substitution statement. : 
: R1804 0 i Anticipates feature eing added ce BLISS as a form ; 
: bt od 8 ; for CHSWCHAR (DSTPV) if looks good. : 
; R1807 0 | Catl: CH_WCHAR (CS_POINTER.ra.v) =... ; : 
; R1808 0 t= ; 
; R1809 0 3 
; R1810 0 MACRO : 
; MR1811 0 CH_WCHAR (CS_POINTER_VAL) = ; 
; MR1812 0 : 
; R1813 0 (CS_POINTER_VAL)<0,8> 1%; : 
; R1815 0 '¢ : 
3 Risi¢ . i ; Macros for processing the compiled format text byte strings. : 
; R1818 O 3 
: R1819 O 3 
; R1820 O RBYTE_A(P) = (P = .P#1; .(.P=-1)<0, 8>) %, : 
; R1821 0 RWORD_A(P) = (P = .P+#2; .(.P-2)<0,16>) %, ’ 
; R1822 0 RLONG_A(P) = (P = .P#4; .(.P-4)<0,32>) %, 3 
; k1823 0 : 
3; MR1B24 0 CALL_VFE(P)= ; 
3; R1825 0 T (LOCAL T; T = .(.P)<0,32>; P = .P#4; .T+.P) () ) &: : 
; R1826 0 : 
; R1827 0 '¢ : 
; R1828 0 ! Macros for copying values referenced by pointers. : 
3 STH 0 to ‘ 
3 Hy th 8 : 
3 «R183e COPY _BYTE_A (S,D) = (D=.D+1; (.D-1)<0,8>=RBYTE A(S)) % : 
: R1B33 0 COPY-WORD-A (S,D) = (D=.D+2; (.D-2) <0, 16>=RMORD A(S)) &, : 
; R1834 0 COPY-LONG_A (S,D) = (D=.D+4;_ (.D-4)<0,32>=RLONG A(S)) % ‘ 
s tH 8 COPY- QUAD “A (S,D) = ((.D)<0,32>=.(.S)<0, 32>; (.6+4)<0, 32>=. (.544)<0,32>; D=.D+8; S=.S+8) %; 

3 Riese 0 '¢ 

; R1838 O i Macro to complete the transportable character pointer notion. 

; kR1839 O i Everywhere that an address (A) can be specified in BLISS 

3 NY 9 0 i allow a character pointer with mnemonic P (rather than CP to keep one letter) 

Fi8eg 0 

3 PR? 8 XBLISS32 ( 

; PR1644 MACRO 
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; 5 LSSP = LSSA %, : 
; : LEQP = LEQA i, : 
; EQLP = EQLA i, : 
; PR1848 NEQP = NEQA 3, : 
; 9 GEQP = GEQA i, : 
; 50 GTRP = GTRA %, | ; 
; PR1851 MAXP = MAXA i, ; 
; Ri82¢ 0 MINP = MINA %;); : 
>; R1855 0 : 
; Rises 0 \+ ; 
; R1855 0 : Clear a vector of BLISS values (transportable) : 
3 Ri828 8 f= ‘ 
> R185 ; 
; .R1858 0 CRO : 
; MR1859 0 FILL VAL (VALUE LENGTH, ADDRESS) = : 
; nieey 8 MBLISS32 (C hist ILL (VALUE, (LENGTH) * XUPVAL, ADDRESS)) 3%; | : 
: R862 0 | : 
; kR1863 0 '+ ‘ 
; R1864 0 i Allocate string descriptor | ; 
; R1865 0 i Rest of descriptor symbols are defined in SRMDEF .MDL ‘ 
3 NY v9, 5 But currently no way in MDL to define a macro | : 
; R1868 0 : To declare and allocate a descriptor: | : 
; R1869 0 : ‘ 
: aie 0 : CAL : 
> R1871 0 : name: DSCSDESCRIPTOR; : 
3 HG 0 t- : 
; R1874 0 MACRO . : 
; R1875 0 DSCSDESCRIPTOR = BLOCK(8, BYTE) %; ! MDL requires BYTE ‘ 
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; 0 
; 0 
; 0 
] 0 
; 0 
; 0 
; 0 
: 0 
; 0 
© 0 
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; 0 
: 0 
; 0 
; 0 
; 0 
@ 0 
; 0 
: 0 
; 0 
oy 0 
; 0 
: 0 


MORON 2 


13 
1 


THE “"ONEOF' MACRO 


Macros to determine if the value of an expression is one of a set of 
specified small-integer values. These macros can be used only if the 
following conditions are met: 

The value to be tested is in the range 0 through 127. 

The values to be tested for are all in the range 0 through 31. 
Example: 

IF ONE_OF (.X, 1,3,5) ... 


The code generated is much more efficient than a series of comparisons 
(provided that the values being tested are all compile-time constants). 


FE ec wcmcesecesacaceossecacecacacace: 


BMSK_[CA]= 
%IF NOT percess RTHEN ZERRORMACRO('ONE_OF argument not a CTCE') %FI 
Z1F (A_GTRU 31) XTHEN XERRORMACRO('ONE_OF constant greater than 31") %FI 
(1 * (31 = (A))) &, 
BMSK_[ 


j= 
TO OR XBMSK_(ZREMAINING)) %, 


XCMP_CA,B,CJ= 
ZIF ZLENGTH EQL 3 


“si ((A EQLU B) OR (A EQLU C)) 
(A EQLU B) 
2F1 %, 
ONE _OF (A)= 
RIF ZLENGTH LEQ 1 XTHEN XERRORMACRO('Too few arguments to ONE_OF') %FI 
at SU eNS TE LEQ 3 
XCMP_(A,ZREMAINING) 


RELS 
ef af ( BMSK_(ZREMAINING) ) * (A)) LSS 0) 


End of file OTSMAC.REQ 
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; 135¢ 8 | 
; 1925 ! End of file FORLIB.REQ 


Library Statistics 


ee tie £Neg Symbols ooocecce Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 5 0 581 00:01.0 | 
| 

; COMMAND QUALIFIERS | 

; BLISS/LIBRARY=LIB$:/LIST=LIS$:/SOURCE=REQUIRE SRC$:FORLIB 

; Run Time: 00:19.9 | 


; Elapsed Time: 01:1 | 
; Lines/CPU Min: 581 He 

3; Lexemes/CPU-Min: 26644 
; Memory Used: 164 pages 
; Library Precompilation Complete 
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